﻿Imports System.Drawing

Public Class Person
    Private _Name As String
    Private _Biography As String
    Private _Code As Long
    Private _Birthday As Date
    'Public Dirigido As List(Of Movie)
    'Public Escrito As List(Of Movie)
    Private _Nominations As String
    Private _Portrait As Image
    Private _Character As String

#Region "Methods"
    Public Sub New(ByVal sName As String)
        _Name = sName
    End Sub
    Public Sub New(ByVal sName As String, ByVal iCode As Long)
        _Name = sName
        _Code = iCode
    End Sub
    Public Sub New(ByVal sName As String, ByVal sCharacter As String)
        _Name = sName
        _Character = sCharacter
    End Sub
    Public Sub New(ByVal sName As String, ByVal sCharacter As String, ByVal iCode As Long)
        _Name = sName
        _Character = sCharacter
        _Code = iCode
    End Sub
    Public Sub New(ByVal iCode As Long, ByVal sName As String, ByVal sNominations As String)
        Clean()
        _Name = sName
        _Code = iCode
        _Nominations = sNominations
    End Sub
    Public Sub New(ByVal iCode As Long, ByVal sName As String)
        Clean()
        _Name = sName
        _Code = iCode
    End Sub
    Public Sub New()
        Clean()
    End Sub
    Public Sub Clean()
        _Name = ""
        _Biography = ""
        _Code = 0
        'Dirigido = New List(Of Movie)()
        'Escrito = New List(Of Movie)()
        _Nominations = ""
        _Portrait = Nothing
    End Sub
#End Region
#Region "Properties"
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    ''' <summary>
    ''' Imdb code of the actor.
    ''' </summary>
    Public Property Code() As Long
        Get
            Return _Code
        End Get
        Set(ByVal value As Long)
            _Code = value
        End Set
    End Property

    Public Property Protrait() As Image
        Get
            Return _Portrait
        End Get
        Set(ByVal value As Image)
            _Portrait = value
        End Set
    End Property

    Public Property Birthday() As Date
        Get
            Return _Birthday
        End Get
        Set(ByVal value As Date)
            _Birthday = value
        End Set
    End Property

    Public Property Biography() As String
        Get
            Return _Biography
        End Get
        Set(ByVal value As String)
            _Biography = value
        End Set
    End Property

    Public Property Nominations() As String
        Get
            Return _Nominations
        End Get
        Set(ByVal value As String)
            _Nominations = value
        End Set
    End Property

    Public Property Character() As String
        Get
            Return _Character
        End Get
        Set(ByVal value As String)
            _Character = value
        End Set
    End Property
#End Region
End Class
